home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / gallery.dir / 00039_Script_Left Button Script < prev    next >
Text File  |  1995-06-12  |  3KB  |  70 lines
  1. global gPictureSprite, gCurrentSection, gCurrentPicture, gNumOPics, gProductSelect
  2. global gMacIDSprite, gWindowsIdSprite, gDemoButtonSprite, gLaunchQTButton
  3.  
  4. on mousedown
  5.   set the puppet of sprite the clickon to true
  6.   repeat while the stilldown
  7.     if rollover(the clickon) then
  8.       set the castnum of sprite (the clickon) = the number of cast "GDemoLeft lit"
  9.       updateStage
  10.     else
  11.       set the castnum of sprite (the clickon) = the number of cast "GDemoLeft"
  12.       updateStage
  13.     end if
  14.   end repeat
  15. end
  16.  
  17. on mouseUp
  18.   if rollover(the clickon) then
  19.     set the castnum of sprite (the clickon) =  the number of cast "GDemoLeft"
  20.     updatestage
  21.     set the puppet of sprite the clickon to false
  22.     set gCurrentPicture = gCurrentPicture - 1
  23.     if gCurrentPicture < 1 then set gCurrentPicture = gNumOPics
  24.     set the castNum of sprite gPictureSprite = the number of cast (string(gCurrentSection) & string(gCurrentPicture))
  25.     set tempList = getaProp(gGalleryList, gCurrentSection)
  26.     if gCurrentPicture > 1 then 
  27.       set the castNum of sprite gLaunchQTButton = the number of cast "PlayQT"
  28.       set gProductSelect = getAt(tempList, (gCurrentPicture - 1))
  29.       put getProp(gProductList, gProductSelect) into sectionFlags
  30.       
  31.       if getAt(sectionFlags,1) then 
  32.         set the castNum of sprite gMacIDSprite = the number of cast "macID lit"
  33.       else
  34.         set the castNum of sprite gMacIDSprite = the number of cast "macID"
  35.       end if
  36.       
  37.       if getAt(sectionFlags,2) then 
  38.         set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID lit"
  39.       else
  40.         set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID"
  41.       end if
  42.       
  43.       if the machineType <> 256 then
  44.         if getAt(sectionFlags,3) then
  45.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo"
  46.         else
  47.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  48.         end if
  49.         exit
  50.       else    
  51.         if getAt(sectionFlags,4) then
  52.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo"
  53.         else
  54.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  55.         end if
  56.         exit
  57.       end if
  58.       
  59.     else
  60.       set gProductSelect = #null
  61.       set the castNum of sprite gLaunchQTButton = the number of cast "NullPlay"
  62.       set the castNum of sprite gMacIDSprite = the number of cast "macID"
  63.       set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID"
  64.       set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  65.     end if
  66.   else
  67.     set the castnum of sprite (the clickon) = the number of cast  "GDemoLeft"
  68.     set the puppet of sprite the clickon to false
  69.   end if
  70. end